Constants

        Const
          dts_DDMYYYY       =  1;
          dts_DDMMYYYY      =  2;
          dts_DDMMMYYYY     =  3;

          DayName     : DayNameArray =
                          ('Sunday', 'Monday', 'Tuesday', 'Wednesday',
                           'Thursday', 'Friday', 'Saturday');

          MonthName   : MonthNameArray =
                          ('January', 'February', 'March', 'April', 'May',
                           'June', 'July', 'August', 'September',
                           'October', 'November', 'December');

          MonthAbr    : MonthNameArray =
                          ('Jan', 'Feb', 'Mar', 'Apr', 'May',
                           'Jun', 'Jul', 'Aug', 'Sep',
                           'Oct', 'Nov', 'Dec');

    The above are used to set the date format and to store the day and
    month names.

    dts_DDMYYYY   indicates a date such a 01 January 1991.
    dts_DDMMYYYY  indicates a date such a 01/01/1991.
    dts_DDMMMYYYY indicates a date such a 01 Jan 1991.